unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RolMakeCalc, StdCtrls,GearTypesUnit,GearClassesUnit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    {Private declarations}
  public
    {Public declarations}
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TRol;
  FInput: TRolMakeInput;
  outp: TRolMakeOutput;
begin
  with FInput do
  begin
    N1 := 500;
    P1 := 7.5;
    up := 3;
    Mark := 1;
    z1 := 3;
    Lh := 5000;
    a := 1;
    Ka := 40;
    Kd := 1;
    Bet := 1;
    X := 1.7;
    Y := 0.5;
    Z := 0.3;
    i := 0.2;
    j := 0.4;
    k := 0.4;
    Ke := Kd * 1 * 1 * 1.15 * 1.5 * 1.25;
  end;

  a := TRol.Create(FInput);
  a.Calculate1;
// ShowMessage(FloatToStr(a.));
Memo1.Clear;
  Memo1.Lines.Add('Step='+FloatToStr(a.Step));
  Memo1.Lines.Add('d2='+FloatToStr(a.d2));
  Memo1.Lines.Add('Vol='+FloatToStr(a.Vol));
  Memo1.Lines.Add('Lhe='+FloatToStr(a.Lhe));
  Memo1.Lines.Add('Fb='+FloatToStr(a.Fb));
  Memo1.Lines.Add('Weigth='+FloatToStr(a.Weigth));
  Memo1.Lines.Add('V='+FloatToStr(a.v));
  Memo1.Lines.Add('z2='+FloatToStr(a.z2));
  Memo1.Lines.Add('d1='+FloatToStr(a.d1));
  Memo1.Lines.Add('da1='+FloatToStr(a.da1));
  Memo1.Lines.Add('da2='+FloatToStr(a.da2));
  Memo1.Lines.Add('uf='+FloatToStr(a.uf));
  Memo1.Lines.Add('Ft='+FloatToStr(a.Ft));
  Memo1.Lines.Add('B='+FloatToStr(a.B));
  Memo1.Lines.Add('L='+FloatToStr(a.L));
  Memo1.Lines.Add('Lp='+FloatToStr(a.Lp));
  Memo1.Lines.Add('W='+FloatToStr(a.W));

end;

end.
